home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 November
/
1989-11.d64
/
light show
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
592b
|
11 lines
10 fort=4915to 49286:readd:poket,d:ck=ck+d:next
20 if ck<> 19407then print"error":end
40 data 169,1,162,8,160,15,32,186,255,169,0,32,189,255,32,192,255,162
50 data1,32,201,255,162,0,169,77,32,210,255,169,45,32,210,255,169,87
60 data 32,210,255,138,32,210,255,169,5,32,210,255,169,1,32,210,255
70 data 189,90,192,32,210,255,138,72,32,204,255,162,1,32,201,255,104
80 data170,232,224,45,208,204,169,85,32,210,255,169,67,32,210,255,32
90 data 204,255,96,169,254,170,32,5,202,224,1,208,248,32,21,5,232
100 data 224,225,208,248,240,235,138,72,73,255,168,169,248,141,0,28
110 data 202,208,248,169,240,141,0,28,136,208,248,104,170,96